MacTech 1 to 12/MacTech-vol-1-12.toast/Source/MacTech® Magazine/Volume 03 - 1987/03.10 Oct 87/RomRef sources/ROM Data sources/Formal4.asm

Assembly Source File | 1986-08-15 | 24.6 KB | 1,351 lines | [TEXT/MEDT]

; -----
; Data for each toolbox call by Manager
; -----

        STRING_FORMAT   0       NO count in this section

;--ResourceData--
id set 749
;AddResource
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'AddResource('
    .Handle NOVAR,'dataH, '
    .long    NOVAR,'type, '
    .Integer NOVAR,'ID, '
    .Str255  VAR,'name)'

;ChangedResource
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'ChangedResource('
    .Handle  NOVAR,'resH)'

;CloseResFile
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'CloseResFile('
    .Integer NOVAR,'refN)'

;CountResources
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'cnt=CountResources('
    .long    NOVAR,'type)'

;CountTypes
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'cnt=CountTypes()'

;CreateResFile
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'CreateResFile('
    .Str255  VAR,'name)'

;CurResFile
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'refN=CurResFile()'

;DetachResource
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'DetachResource('
    .Handle  NOVAR,'resH)'

;GetIndResource
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Handle  NOVAR,'resH=GetIndResource('
    .long    NOVAR,'type, '
    .Integer NOVAR,'index)'

;GetIndType
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'GetIndType('
    .long    VAR,'type, '
    .Integer NOVAR,'index)'

;GetNamedResource
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Handle  NOVAR,'resH=GetNamedResource('
    .long    NOVAR,'type, '
    .Str255  VAR,'name)'

;GetResAttrs
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'attr=GetResAttrs('
    .Handle  NOVAR,'resH)'

;GetResFileAttrs
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'attr=GetResFileAttrs('
    .Integer NOVAR,'refN)'

;GetResInfo
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'GetResInfo('
    .Handle  NOVAR,'resH, '
    .Integer VAR,'ID, '
    .long    VAR,'type, '
    .Str255  VAR,'name)'

;GetResource
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Handle  NOVAR,'resH=GetResource('
    .long    NOVAR,'type, '
    .Integer NOVAR,'ID)'

;HomeResFile
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'refN=HomeResFile'
    .Handle  NOVAR,'resH)'

;InitResources
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'sysrefN=InitResources()'

;LoadResource
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'LoadResource('
    .Handle  NOVAR,'resH)'

;OpenResFile
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'refN=OpenResFile('
    .Str255  VAR,'name)'

;ReleaseResource
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'ReleaseResource('
    .Handle  NOVAR,'resH)'

;ResError
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = ResError()'

;RmveResource
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'RmveResource('
    .Handle  NOVAR,'resH)'

;RsrcZoneInit
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'RsrcZoneInit()'

;SetResAttrs
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'SetResAttrs('
    .Handle  NOVAR,'resH, '
    .Integer NOVAR,'attrs)'

;SetResFileAttrs
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'SetResFileAttrs('
    .Integer NOVAR,'refN, '
    .Integer NOVAR,'attrs)'

;SetResInfo
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'SetResInfo('
    .Handle  NOVAR,'resH, '
    .Integer NOVAR,'ID, '
    .Str255  VAR,'name)'

;SetResLoad
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'SetResLoad('
    .Boolean NOVAR,'load)'

;SetResPurge
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'SetResPurge('
    .Boolean NOVAR,'install)'

;SizeResource
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .long    NOVAR,'size=SizeResource('
    .Handle  NOVAR,'resH)'

;UniqueID
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'ID=UniqueID()'

;UpdateResFile
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'UpdateResFile('
    .Integer NOVAR,'refN)'

;UseResFile
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'UseResFile('
    .Integer NOVAR,'refN)'

;WriteResource
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'WriteResource('
    .Handle  NOVAR,'resH)'

;--ScrapData--
id set 799
;GetScrap
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .long    NOVAR,'err = GetScrap('
    .Handle  NOVAR,'dest, '
    .type    NOVAR,'type, '
    .long    VAR,'offset)'

;InfoScrap
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Ptr    NOVAR,'scrapstuff = InfoStuff()'

;LoadScrap
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .long   NOVAR,'err = LoadScrap()'

;PutScrap
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .long   NOVAR,'err = PutScrap('
    .long   NOVAR,'length, '
    .type   NOVAR,'type, '
    .Ptr    NOVAR,'source)'

;UnLoadScrap
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .long   NOVAR,'err = UnLoadScrap()'

;ZeroScrap
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .long   NOVAR,'err = ZeroScrap()'

;--SegmentData--
id set 819
;ClrAppFiles
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'ClrAppFiles('
    .Integer NOVAR,'index)'

;CountAppFiles
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'CountAppFiles('
    .Integer VAR,'msg, '
    .Integer VAR,'cnt)'

;ExitToShell
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'ExitToShell()'

;GetAppFiles
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'GetAppFiles('
    .Integer NOVAR,'index, '
    DC.B    '(AppFile *) theFile)'

;GetAppParms
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'GetAppParms('
    .Str255  VAR,'name, '
    .Integer VAR,'refN, '
    .Handle  VAR,'apParm)'

;UnloadSeg
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'UnloadSeg('
    .byte    VAR,'proc)'

;--SerialDriverData--
id set 849
;RAMSDClose
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'RAMSDClose('
    .byte    NOVAR,'which)'

;RAMSDOpen
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = RAMSDOpen('
    .byte    NOVAR,'which)'

;SerClrBrk
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = SerClrBrk('
    .Integer NOVAR,'refN)'

;SerGetBuf
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = SerGetBuf('
    .Integer NOVAR,'refN, '
    .long    VAR,'cnt)'

;SerHShake
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = SerHShake('
    .Integer NOVAR,'refN, '
    DC.B    '(SerShk *) flags)'

;SerReset
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = SerReset('
    .Integer NOVAR,'refN, '
    .Integer NOVAR,'config)'

;SerSetBrk
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = SerSetBrk('
    .Integer NOVAR,'refN)'

;SerSetBuf
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = SerSetBuf('
    .Integer NOVAR,'refN, '
    .byte    VAR,'buff, '
    .Integer NOVAR,'len)'

;SerStatus
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = SerStatus('
    .Integer NOVAR,'refN, '
    DC.B    '(SerStaRec *) stat)'

;--SoundData--
id set 869
;GetSoundVol
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'GetSoundVol('
    .Integer VAR,'level)'

;SetSoundVol
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'SetSoundVol('
    .Integer NOVAR,'level)'

;StartSound
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'StartSound('
    .byte    VAR,'sRec, '
    .long    NOVAR,'len, '
    .byte    VAR,'cmpRtn)'

;StopSound
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'StopSound()'

;SoundDone
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Boolean NOVAR,'done=SoundDone'

;--StandardFileData--
id set 889
;MyDlg
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'item=MyDlg('
    .Integer NOVAR,'item, '
    .byte    VAR,'dPtr)'

;MyFileFilter
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Boolean NOVAR,'ok=MyFileFilter('
    .byte    VAR,'pBlk)'

;SFGetFile
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'SFGetFile('
    .Pt      VAR,'where, '
    .Str255  VAR,'prompt, '
    .byte    VAR,'filter, '
    .Integer NOVAR,'nTypes, '
    DC.B    '(SFTypeList *) list, '
    .byte    VAR,'hook, '
    .SFReply VAR,'reply)'

;SFPGetFile
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'SFPGetFile('
    .Pt      VAR,'where, '
    .Str255  VAR,'prompt, '
    .byte    VAR,'filter, '
    .Integer NOVAR,'nTypes, '
    DC.B    '(SFTypeList *) list, '
    .byte    VAR,'hook, '
    .SFReply VAR,'reply, '
    .Integer NOVAR,'dlgID, '
    .byte    VAR,'filter2)'

;SFPPutFile
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'SFPPutFile('
    .Pt      VAR,'where, '
    .Str255  VAR,'prompt, '
    .Str255  VAR,'orig, '
    .byte    VAR,'hook, '
    .SFReply VAR,'reply, '
    .Integer NOVAR,'dlgID, '
    .byte    VAR,'filter)'

;SFPutFile
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'SFPutFile('
    .Pt      VAR,'where, '
    .Str255  VAR,'prompt, '
    .Str255  VAR,'orig, '
    .byte    VAR,'hook, '
    .SFReply VAR,'reply)'

;--TextEditData--
id set 909
;MyClikLoop
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Boolean NOVAR,'down=MyClikLoop'

;MyWordBreak
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Boolean NOVAR,'brk=MyWordBreak('
    .byte    VAR,'txt, '
    .Integer NOVAR,'pos)'

;SetClikLoop
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'SetClikLoop('
    .byte   VAR,'proc, '
    .TEHndl  NOVAR,'hTE)'

;SetWordBreak
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'SetWordBreak('
    .byte   VAR,'proc, '
    .TEHndl  NOVAR,'hTE)'

;TEActivate
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'TEActivate('
    .TEHndl  NOVAR,'hTE)'

;TECalText
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'TECalText('
    .TEHndl  NOVAR,'hTE)'

;TEClick
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'TEClick('
    .Pt      VAR,'pt, '
    .Boolean NOVAR,'extend, '
    .TEHndl  NOVAR,'hTE)'

;TECopy
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'TECopy('
    .TEHndl  NOVAR,'hTE)'

;TECut
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'TECut('
    .TEHndl  NOVAR,'hTE)'

;TEDeactivate
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'TEDeactivate('
    .TEHndl  NOVAR,'hTE)'

;TEDelete
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'TEDelete('
    .TEHndl  NOVAR,'hTE)'

;TEDispose
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'TEDispose('
    .TEHndl  NOVAR,'hTE)'

;TEFromScrap
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = TEFromScrap()'

;TEGetScrapLen
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .long    NOVAR,'len=TEGetScrapLen()'

;TEGetText
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Handle  NOVAR,'Hdnl=TEGetText('
    .TEHndl  NOVAR,'hTE)'

;TEIdle
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'TEIdle('
    .TEHndl  NOVAR,'hTE)'

;TEInit
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'TEInit()'

;TEInsert
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'TEInsert('
    .byte    VAR,'txt, '
    .long    NOVAR,'len, '
    .TEHndl  NOVAR,'hTE)'

;TEKey
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'TEKey('
    .byte    NOVAR,'key, '
    .TEHndl  NOVAR,'hTE)'

;TENew
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .TEHndl  NOVAR,'hTE=TENew('
    .Rect    VAR,'destR, '
    .Rect    VAR,'viewR)'

;TEPaste
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'TEPaste('
    .TEHndl  NOVAR,'hTE)'

;TEScrapHandle
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Handle  NOVAR,'H=TEScrapHandle()'

;TEScroll
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'TEScroll('
    .Integer NOVAR,'dH, '
    .Integer NOVAR,'dV, '
    .TEHndl  NOVAR,'hTE)'

;TESetJust
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'TESetJust('
    .Integer NOVAR,'just, '
    .TEHndl  NOVAR,'hTE)'

;TESetScrapLen
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'TESetScrapLen('
    .long    NOVAR,'len)'

;TESetSelect
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'TESetSelect('
    .long    NOVAR,'st, '
    .long    NOVAR,'end, '
    .TEHndl  NOVAR,'hTE)'

;TESetText
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'TESetText('
    .byte   VAR,'txt, '
    .long    NOVAR,'len, '
    .TEHndl  NOVAR,'hTE)'

;TEToScrap
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = TEToScrap()'

;TEUpdate
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'TEUpdate('
    .Rect   VAR,'updtR, '
    .TEHndl  NOVAR,'hTE)'

;TextBox
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'TextBox('
    .byte   VAR,'txt, '
    .long    NOVAR,'len, '
    .Rect    VAR,'box, '
    .Integer NOVAR,'just)'

;--ToolBoxData--
id set 949
;AngleFromSlope
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'ang=AngleFromSlope('
    .Fix     NOVAR,'slope)'

;BitAnd
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .long    NOVAR,'ans=BitAnd('
    .long    NOVAR,'val1, '
    .long    NOVAR,'val2)'

;BitClr
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'BitClr('
    .byte    VAR,'ptr1, '
    .long    NOVAR,'bitNo)'

;BitNot
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .long    NOVAR,'ans=BitNot('
    .long    NOVAR,'val1)'

;BitOr
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .long    NOVAR,'ans=BitOr('
    .long    NOVAR,'val1, '
    .long    NOVAR,'val2)'

;BitSet
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'BitSet('
    .byte    VAR,'ptr1, '
    .long    NOVAR,'bitNo)'

;BitShift
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .long    NOVAR,'ans=BitShift('
    .long    NOVAR,'val1, '
    .Integer NOVAR,'cnt)'

;BitTst
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Boolean NOVAR,'bit=Dummy'
    .byte    VAR,'ptr1, '
    .long    NOVAR,'bitNo)'

;BitXor
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .long    NOVAR,'ans=BitXor('
    .long    NOVAR,'val1, '
    .long    NOVAR,'val2)'

;DeltaPoint
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .long    NOVAR,'ans=DeltaPoint('
    .Pt      VAR,'ptA, '
    .Pt      VAR,'ptB)'

;FixMul
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Fix     NOVAR,'ans=FixMul('
    .Fix     NOVAR,'val1, '
    .Fix     NOVAR,'val2)'

;FixRatio
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Fix     NOVAR,'ans=FixRatio('
    .Integer NOVAR,'num, '
    .Integer NOVAR,'denom)'

;FixRound
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'ans=FixRound('
    .Fix     NOVAR,'x)'

;GetCursor
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Handle  NOVAR,'h=GetCursor('
    .Integer NOVAR,'ID)'

;GetIcon
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Handle  NOVAR,'h=GetIcon('
    .Integer NOVAR,'ID)'

;GetIndPattern
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'GetIndPattern('
    .byte    VAR,'thePat, '
    .Integer NOVAR,'listID, '
    .Integer NOVAR,'index)'

;GetIndString
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'GetIndString('
    .Str255  VAR,'theSt, '
    .Integer NOVAR,'listID, '
    .Integer NOVAR,'index)'

;GetPattern
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Handle  NOVAR,'h=GetPattern('
    .Integer NOVAR,'ID)'

;GetPicture
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Handle  NOVAR,'h=GetPicture('
    .Integer NOVAR,'ID)'

;GetString
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Handle  NOVAR,'h=GetString('
    .Integer NOVAR,'ID)'

;HiWord
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'ans=HiWord('
    .long    NOVAR,'x)'

;LongMul
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'LongMul('
    .long    NOVAR,'val1, '
    .long    NOVAR,'val2, '
    .byte    VAR,'ans)'

;LoWord
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'ans=LoWord('
    .long    NOVAR,'x)'

;Munger
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .long    NOVAR,'chpos=Munger('
    .Handle  NOVAR,'h, '
    .long    NOVAR,'offset, '
    .byte    VAR,'ptr1, '
    .long    NOVAR,'len1, '
    .byte    VAR,'ptr2, '
    .long    NOVAR,'len2)'

;NewString
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Handle  NOVAR,'h=NewString('
    .Str255  VAR,'st)'

;PackBits
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'PackBits('
    .byte    VAR,'src, '
    .byte    VAR,'dst, '
    .Integer NOVAR,'cnt)'

;PlotIcon
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'PlotIcon('
    .Rect    VAR,'R, '
    .Handle  NOVAR,'iconH)'

;ScreenRes
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'ScreenRes('
    .Integer VAR,'hRes, '
    .Integer VAR,'vRes)'

;SetString
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'SetString('
    .Handle  NOVAR,'stH, '
    .Str255  VAR,'st)'

;ShieldCursor
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'ShieldCursor('
    .Rect    VAR,'shldR, '
    .Pt      VAR,'offPt)'

;SlopeFromAngle
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Fix     NOVAR,'ans=SlopeFromAngle('
    .Integer NOVAR,'ang)'

;UnpackBits
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'UnpackBits('
    .byte    VAR,'src, '
    .byte    VAR,'dst, '
    .Integer NOVAR,'cnt)'

;--VBLData--
id set 999
;VInstall
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = VInstall((QElement *) theElem)'

;VRemove
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = VRemove((QElement *) theElem)'

;--WindowData--
id set 1009
;BeginUpdate
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'BeginUpdate('
    .WPtr    NOVAR,'wPtr)'

;BringToFront
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'BringToFront('
    .WPtr    NOVAR,'wPtr)'

;CalcVis
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'CalcVis('
    .WindRec VAR,'wPk)'

;CalcVisBehind
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'CalcVisBehind('
    .WindRec VAR,'strt, '
    .RgnH    NOVAR,'badRgn)'

;CheckUpdate
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Boolean NOVAR,'doUp=CheckUpdate('
    .EvtRec  VAR,'tEvnt)'

;ClipAbove
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'ClipAbove('
    .WindRec VAR,'wPk)'

;CloseWindow
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'CloseWindow('
    .WPtr    NOVAR,'wPtr)'

;DisposeWindow
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'DisposeWindow('
    .WPtr    NOVAR,'wPtr)'

;DragGrayRgn
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .long    NOVAR,'off=DragGrayRgn('
    .RgnH    NOVAR,'tRgn, '
    .Pt      VAR,'stPt, '
    .Rect    VAR,'limR, '
    .Rect    VAR,'slopR, '
    .Integer NOVAR,'axis, '
    .byte    VAR,'proc)'

;DragWindow
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'DragWindow('
    .WPtr    NOVAR,'wPtr, '
    .Pt      VAR,'stPt, '
    .Rect    VAR,'limR)'

;DrawGrowIcon
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'DrawGrowIcon('
    .WPtr    NOVAR,'wPtr)'

;DrawNew
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'DrawNew('
    .WindRec VAR,'wPk, '
    .Boolean NOVAR,'upD)'

;EndUpdate
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'EndUpdate('
    .WPtr    NOVAR,'wPtr)'

;FindWindow
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'pt=FindWindow('
    .Pt      VAR,'tPt, '
    .WPtr    VAR,'which)'

;FrontWindow
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .WPtr    NOVAR,'wPtr=FrontWindow()'

;GetNewWindow
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .WPtr    NOVAR,'wPtr=GetNewWindow('
    .Integer NOVAR,'ID, '
    .byte    VAR,'stor, '
    .WPtr    NOVAR,'behind)'

;GetWindowPic
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Handle  NOVAR,'h=GetWindowPic('
    .WPtr    NOVAR,'wPtr)'

;GetWMgrPort
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'GetWMgrPort('
    .Graf    VAR,'tGPtr)'

;GetWRefCon
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .long    NOVAR,'ref=GetWRefCon('
    .WPtr    NOVAR,'wPtr)'

;GetWTitle
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'GetWTitle('
    .WPtr    NOVAR,'wPtr, '
    .Str255  VAR,'str)'

;GrowWindow
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .long    NOVAR,'size=GrowWindow('
    .WPtr    NOVAR,'wPtr, '
    .Pt      VAR,'stPt, '
    .Rect    VAR,'sizeR)'

;HideWindow
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'HideWindow('
    .WPtr    NOVAR,'wPtr)'

;HiliteWindow
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'HiliteWindow('
    .WPtr    NOVAR,'wPtr, '
    .Boolean NOVAR,'state)'

;InitWindows
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'InitWindows()'

;InvalRect
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'InvalRect('
    .Rect    VAR,'badR)'

;InvalRgn
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'InvalRgn('
    .RgnH    NOVAR,'rgn)'

;MoveWindow
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'MoveWindow('
    .WPtr    NOVAR,'wPtr, '
    .Integer NOVAR,'hGlbl, '
    .Integer NOVAR,'vGlbl, '
    .Boolean NOVAR,'front)'

;NewWindow
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .WPtr    NOVAR,'wPtr=NewWindow('
    .byte    VAR,'stor, '
    .Rect    VAR,'bounds, '
    .Str255  VAR,'title, '
    .Boolean NOVAR,'vis, '
    .Integer NOVAR,'procID, '
    .WPtr    NOVAR,'behind, '
    .Boolean NOVAR,'goAway, '
    .long    NOVAR,'refC)'

;PaintBehind
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'PaintBehind('
    .WindRec VAR,'stWPk, '
    .RgnH    NOVAR,'badRgn)'

;PaintOne
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'PaintOne('
    .WindRec VAR,'wPk, '
    .RgnH    NOVAR,'badRgn)'

;PinRect
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .long    NOVAR,'ans=PinRect('
    .Rect    VAR,'R, '
    .Pt      VAR,'pt)'

;SaveOld
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'SaveOld('
    .WindRec VAR,'wPk)'

;SelectWindow
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'SelectWindow('
    .WPtr    NOVAR,'wPtr)'

;SendBehind
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'SendBehind('
    .WPtr    NOVAR,'theWPtr, '
    .WPtr    NOVAR,'behind)'

;SetWindowPic
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'SetWindowPic('
    .WPtr    NOVAR,'wPtr, '
    .Handle  NOVAR,'picH)'

;SetWRefCon
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'SetWRefCon('
    .WPtr    NOVAR,'wPtr, '
    .long    NOVAR,'data)'

;SetWTitle
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'Dummy'
    .WPtr    NOVAR,'wPtr, '
    .Str255  VAR,'title)'

;ShowHide
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'ShowHide('
    .WPtr    NOVAR,'wPtr)'

;ShowWindow
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'ShowWindow('
    .WPtr    NOVAR,'wPtr)'

;SizeWindow
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'SizeWindow('
    .WPtr    NOVAR,'wPtr, '
    .Integer NOVAR,'w, '
    .Integer NOVAR,'h, '
    .Boolean NOVAR,'upD)'

;TrackGoAway
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Boolean NOVAR,'go=TrackGoAway('
    .WPtr    NOVAR,'wPtr, '
    .Pt      VAR,'tPt)'


;ValidRect
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'ValidRect('
    .Rect    VAR,'goodR)'

;ValidRgn
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'ValidRgn('
    .RgnH    NOVAR,'goodRgn)'